home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-02 / boi120p.zip / UNITS.ZIP / BOIDECL.PAS < prev    next >
Pascal/Delphi Source File  |  1990-12-10  |  4KB  |  96 lines
  1. {$D-}  { Debug Information Off }
  2. {$S-}  { Stack Checking Off    }
  3. {$V-}  { String Checking Off   }
  4.  
  5. Unit BOIDecl;
  6. { Part of BBS Onliner Interface }
  7. { Copyright (C) 1990 Andrew J. Mead
  8.   All Rights Reserved. }
  9.  
  10. { original version 10/20/90
  11.   history found in IOLIB.PAS }
  12.  
  13. INTERFACE
  14.  
  15. Uses
  16.   DOS;
  17.  
  18. Const
  19.   InterfaceVersion = '1.20';     { Interface Version Number }
  20.  
  21.   { Implement ANSI color codes, second number is TP CRT code }
  22.  
  23.   { Foreground and background color constants }
  24.   Black         = 30; { 0}  { ANSI background constants are 10 greater than }
  25.   Blue          = 34; { 1}  { the foreground constants.  PortBackground adds }
  26.   Green         = 32; { 2}  { 10 to the value passed. }
  27.   Cyan          = 36; { 3}
  28.   Red           = 31; { 4}
  29.   Magenta       = 35; { 5}
  30.   Brown         = 33; { 6}
  31.   LightGray     = 37; { 7}
  32.  
  33.   { Foreground color constants }
  34.   DarkGray      = 80; { 8}  { ANSI uses an intesity parameter. 50 has been }
  35.   LightBlue     = 84; { 9}  { added to each of the constants.  TextPortColor }
  36.   LightGreen    = 82; {10}  { strips the 50 off and also sends the intesity }
  37.   LightCyan     = 86; {11}  { code. }
  38.   LightRed      = 81; {12}
  39.   LightMagenta  = 85; {13}
  40.   Yellow        = 83; {14}
  41.   White         = 87; {15}
  42.  
  43.   { Add-in for blinking }
  44.   Blink         = 100; {128}
  45.  
  46. Const
  47.   docolor    : boolean = false;            { use color indicator }
  48.   dolocal    : boolean = true;             { local mode indicator }
  49.   doecho     : boolean = false;            { echo info locally indicator }
  50.   doquiet    : boolean = false;            { supress local bell ringing }
  51.   baudlock   : boolean = false;            { modem has locked baud rate }
  52.   doagain    : boolean = false;            { allow multiple play }
  53.   setfunction: boolean = false;            { character input is extended code }
  54.   checkcd    : boolean = true;             { use carrier detect routines }
  55.   againtime  : word    = 10;               { time minimum for Again play }
  56.   portadd    : word    = $03F8; { Com1 }   { serial port address }
  57.   portnum    : word    = 0;     { Com1 }   { serial port number (absolute) }
  58.   portint    : word    = $0C;   { IRQ4 }   { serial port interrupt vector }
  59.   initval    : byte    = $EF;   { IRQ4 }   { 8259A port initialization value }
  60.  
  61.   hoflim     : byte    = 20;    { maximum entries by one player in HOF }
  62.   gamepath   : pathstr = '';               { path to game and game files }
  63.  
  64.   plusindex  : byte    = 0;     { GetCmBBS places ParamStr index value in }
  65.   minusindex : byte    = 0;     { the given variable.  These are the main }
  66.   equalindex : byte    = 0;     { program definable variables.  The program }
  67.   closeindex : byte    = 0;     { must perform any further processing on }
  68.   openindex  : byte    = 0;     { these switches. }
  69.   dotindex   : byte    = 0;
  70.  
  71. Type
  72.   str39      = string [39];
  73.   charset    = set of char;
  74.  
  75. Var
  76.   pagelength : byte;        { size of screen in lines }
  77.   username   : str39;       { player's name - if available }
  78.   usename    : boolean;     { availability of users name }
  79.   realname   : str39;       { player's real name (not alias) - if available }
  80.   usereal    : boolean;     { availability of real name }
  81.   timeleft   : integer;     { playing time - if available }
  82.   usetime    : boolean;     { use playing time indicator }
  83.   hour       : word;        { hour at initialization }
  84.   thishour   : word;        { current hour }
  85.   minute     : word;        { minute at initialization }
  86.   thismin    : word;        { current minute }
  87.   second     : word;        { time input variable - unused }
  88.   hunsec     : word;        { time input variable - unused }
  89.   extraword  : word;        { reserved }
  90.   timexp     : boolean;     { time expired indicator }
  91.   texthof    : pathstr;     { text hall of fame filename }
  92.  
  93. IMPLEMENTATION
  94.  
  95. end.  Unit
  96.